﻿Public Class formpcmanager
     
    Private Sub btnvncfull_Click(sender As Object, e As EventArgs) Handles btnmgmt.Click

        Dim parametros2 As String
        Dim ruta As String
        Dim compu As String
        Dim compulocal As String

        parametros2 = textipmgmt.Text
        ruta = "c:\windows\system32\cmd.exe"
        compu = "/c compmgmt.msc /computer:"
        compulocal = "/c compmgmt.msc"
        Shell(ruta & " " & compu & parametros2, vbHide)

        textipmgmt.Clear()
        Me.Close()
    End Sub

    Private Sub formpcmanager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       





    End Sub

    Private Sub checkmglocal_CheckedChanged(sender As Object, e As EventArgs)
        
    End Sub

    Private Sub checkmgremote_CheckedChanged(sender As Object, e As EventArgs)
        
    End Sub

    Private Sub textipmgmt_TextChanged(sender As Object, e As EventArgs) Handles textipmgmt.TextChanged
     

    End Sub
End Class